home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  635b  |  32 lines
  1. 10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
  2. 20 T=VAL(MID$(D$,1,2))
  3. 30 M=VAL(MID$(D$,3,2))
  4. 40 J=VAL(MID$(D$,5))
  5. 50 GOSUB 1000
  6. 60 INPUT"FRIST IN TAGEN ";R
  7. 70 JD=JD+R
  8. 80 GOSUB 2000
  9. 90 PRINT "LAEUFT AM";T;".";M;".";J;". AB!"
  10. 100 END
  11. 1000 REM KALENDER -> JULIANISCH
  12. 1010 IF M>2 THEN M=M-3:GOTO 1030
  13. 1020 M=M+9:J=J-1
  14. 1030 JH=INT(J/100):JA=J-100*JH
  15. 1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
  16. 1050 JD=JD+INT((153*M+2)/5)+T
  17. 1060 RETURN
  18. 2000 REM JULIANISCH -> KALENDER
  19. 2005 J=INT((4*JD-1)/146097)
  20. 2010 JD=4*JD-1-146097*J
  21. 2020 T=INT(JD/4)
  22. 2030 JD=INT((4*T+3)/1461)
  23. 2040 T=4*T+3-1461*JD
  24. 2050 T=INT((T+4)/4)
  25. 2060 M=INT((5*T-3)/153)
  26. 2070 T=5*T-3-153*M
  27. 2080 T=INT((T+5)/5)
  28. 2090 J=100*J+JD
  29. 2100 IFM<10THENM=INT(M+3):GOTO2120
  30. 2110 M=INT(M-9):J=J+1
  31. 2120 RETURN
  32.